home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_09 / sharemods < prev    next >
Encoding:
Text File  |  1995-06-23  |  798 b   |  52 lines
  1. *| > ShareMods
  2. *|
  3. *|   Converting Sharemaster
  4. *|   to the Archimedes.
  5. *|
  6. *|   Devised by Gordon Barker.
  7. *|
  8. *|   From Archive BBC Column 3.
  9. *|
  10.  
  11. *BASIC
  12. LISTO 1 
  13.  
  14. LOAD "MENU"
  15.  3100 IF Xi=49 THEN CHAIN"EDIT":END
  16.  3110 IF Xi=52 THEN CHAIN"PORT":END
  17.  3120 IF Xi=50 THEN CHAIN"PRICE":END
  18.  3130 IF Xi=51 THEN CHAIN"CHART":END
  19.  3150 IF Xi=53 THEN CHAIN"ANLY":END
  20.  3180 IF Xi=55 THEN *FX200,0
  21.  3190 IF Xi=55 THEN *QUIT:*BASIC
  22.  3192
  23.  3220
  24. SAVE "MENU"
  25.  
  26. LOAD "PORT"
  27.   141 DEF PROCQ:CHAIN"MENU":END
  28.   430 CLS
  29. SAVE "PORT"
  30.  
  31. LOAD "EDIT"
  32.   900 CLS
  33.  1800 DEFPROCV:CHAIN"MENU":END
  34. SAVE "EDIT"
  35.  
  36. LOAD "PRICE"
  37.    70
  38.   291 DEFPROCV:CHAIN"MENU":END
  39.  2630 CLS
  40. SAVE "PRICE"
  41.  
  42. LOAD "ANLY"
  43.    90 DEFPROCV:CHAIN"MENU":END
  44.  2630 CLS
  45. SAVE "ANLY"
  46.  
  47. LOAD "CHART"
  48.    50
  49.  3850 IFTD%<>` PROCs
  50.  6100 DEFPROCV:CHAIN"MENU":END
  51. SAVE "CHART"
  52.